home *** CD-ROM | disk | FTP | other *** search
- #include "idents.pas"
- id_Menu MENU
- BEGIN
- POPUP "&Game"
- BEGIN
- MENUITEM "&New...\tIns", cm_GameNew
- MENUITEM SEPARATOR
- MENUITEM "E&xit...\tAlt+X", cm_GameExit
- END
-
- POPUP "&Edit"
- BEGIN
- MENUITEM "&Options...", cm_EditOptions
- MENUITEM SEPARATOR
- MENUITEM "Level-&1", cm_EditLevel1
- MENUITEM "Level-&2", cm_EditLevel2
- MENUITEM "Level-&3", cm_EditLevel3
- MENUITEM "Level-&4", cm_EditLevel4
- MENUITEM "Level-&5", cm_EditLevel5
- MENUITEM "Level-&6", cm_EditLevel6
- MENUITEM "Level-&7", cm_EditLevel7
- END
-
- POPUP "&Action"
- BEGIN
- MENUITEM "&Replay", cm_ActionReplay, GRAYED
- MENUITEM "&Pass...", cm_ActionPass
- MENUITEM "&Switch", cm_ActionSwitch
- END
-
- POPUP "&Help"
- BEGIN
- MENUITEM "&Index\tF1", cm_HelpIndex
- MENUITEM "Using &help", cm_HelpUsing
- MENUITEM SEPARATOR
- MENUITEM "&About Mancala...", cm_HelpAbout
- END
-
- END
- id_Icon ICON mancala.ico
- id_About DIALOG 16, 25, 131, 96
- CAPTION "About Mancala"
- STYLE DS_MODALFRAME | WS_POPUP | WS_CAPTION | WS_SYSMENU
- BEGIN
- CONTROL "The Game of Mancala", -1, "STATIC", SS_CENTER | WS_GROUP, 3, 7, 126, 9
- CONTROL "Written in Turbo Pascal for Windows", -1, "STATIC", SS_CENTER | WS_GROUP, 3, 30, 126, 9
- CONTROL "Version 1.00", -1, "STATIC", SS_CENTER | WS_GROUP, 64, 46, 42, 9
- CONTROL "Copyright ⌐ 1991 by Swan Software", -1, "STATIC", SS_CENTER | WS_GROUP, 3, 61, 126, 9
- CONTROL "O&k", 1, "BUTTON", BS_DEFPUSHBUTTON | WS_TABSTOP, 85, 77, 36, 14
- CONTROL id_Icon, -1, "STATIC", SS_ICON | WS_GROUP, 29, 42, 16, 16
- CONTROL "by Tom Swan", -1, "STATIC", SS_CENTER | WS_GROUP, 2, 18, 127, 8
- END
- id_Options DIALOG 10, 35, 170, 54
- CAPTION "Mancala Options"
- STYLE DS_MODALFRAME | WS_POPUP | WS_CAPTION | WS_SYSMENU
- BEGIN
- CONTROL "", op_PebblesPerCup, "EDIT", ES_CENTER | WS_BORDER | WS_TABSTOP, 117, 14, 16, 12
- CONTROL "O&k", 1, "BUTTON", BS_DEFPUSHBUTTON | WS_TABSTOP, 24, 36, 47, 14
- CONTROL "&Cancel", 2, "BUTTON", BS_PUSHBUTTON | WS_TABSTOP, 99, 36, 47, 14
- CONTROL "Pebbles per cup", -1, "STATIC", SS_RIGHT | WS_GROUP, 37, 15, 58, 9
- END
-
- STRINGTABLE
- BEGIN
- its_Your_Move, "It's your move"
- its_My_Move, "It's my move"
- you_Go_Again, "You go again"
- i_Go_Again, "I go again"
- capture, "Capture!"
- i_Win, "I win!"
- you_Win, "You win!"
- im_out, "I'm out!"
- youre_Out, "You're out!"
- instant_Replay, "Instant replay"
- pebbles_To_Win, "Pebbles to Win"
- END
-
-
- id_Instruct DIALOG 18, 18, 142, 92
- CAPTION "Instructions for Mancala"
- STYLE DS_MODALFRAME | WS_POPUP | WS_CAPTION | WS_SYSMENU
- BEGIN
- END
-
- id_Accelerator ACCELERATORS
- BEGIN
- VK_INSERT, cm_GameNew, VIRTKEY
- "X", cm_GameExit, ASCII, ALT
- "x", cm_GameExit, ASCII, ALT
- VK_F1, cm_HelpIndex, VIRTKEY
- "1", cm_Move1
- "2", cm_Move2
- "3", cm_Move3
- "4", cm_Move4
- "5", cm_Move5
- "6", cm_Move6
- "7", cm_Move7
- "8", cm_Move8
- "9", cm_Move9, ASCII
- END
-